(calendar-read-date): Use assoc-ignore-case and do not capitalize when

matching month and day names.

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 14827bc63197cbcc70ab3db319b345ade233ec13..a6ec6650df552eb6a3a944c6952c13d932d1f0fd 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -2301,13 +2301,12 @@ If optional NODAY is t, does not ask for day, but just returns
                                 (calendar-current-date)))))
          (month-array calendar-month-name-array)
          (completion-ignore-case t)
-         (month (cdr (assoc
-                      (capitalize
+         (month (cdr (assoc-ignore-case
                        (completing-read
                         "Month name: "
                         (mapcar 'list (append month-array nil))
-                        nil t))
-                      (calendar-make-alist month-array 1 'capitalize))))
+                        nil t)
+                      (calendar-make-alist month-array 1))))
          (last (calendar-last-day-of-month month year)))
     (if noday
         (if (eq noday t)